Bom Dia meu camarada!

com esse codigo deu tudo certo em ambas as planilhas "NACIONAL" e "INTERNACIONAL" , porém agora a planilha "mãe" não esta remetendo as células dests planilhas , vou colocar abaixo todas as macros pra voce ver aonde esta o erro pois ja tentei varias coisas e não conseguir :

MACROS que estão "OK"

INTERNACIONAL

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 24 And Target.Count = 1 Then
If Target.Value = "Clique aqui" Then
Dim Num As Long
Num = Cells(Target.Row, 1) - 57000000
On Error Resume Next
Workbooks("Controle de processos GDS.xls").Activate
If Err.Number = 9 Then
Err.Clear
Workbooks.Open (ActiveWorkbook.Path & "Controle de processos GDS.xls")
End If
Range("J:J").Find(What:=Num, LookAt:=xlWhole).Select
If Err.Number = 91 Then
Err.Clear
Range("J:J").Find(What:=Format(Num, "000000")).Select
End If
If Err.Number = 91 Then
Err.Clear
MsgBox "Item não encontrado na planilha do Comprador"
End If
End If
End If
If Err.Number > 0 Then MsgBox Err.Number & " - " & Err.Description
End Sub

NACIONAL

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 17 And Target.Count = 1 Then
If Target.Value = "Clique aqui" Then
Dim Num As Long
Num = Cells(Target.Row, 1) - 14000000
On Error Resume Next
Workbooks("Controle de processos GDS.xls").Activate
If Err.Number = 9 Then
Err.Clear
Workbooks.Open (ActiveWorkbook.Path & "Controle de processos GDS.xls")
End If
Range("J:J").Find(What:=Num, LookAt:=xlWhole).Select
If Err.Number = 91 Then
Err.Clear
Range("J:J").Find(What:=Format(Num, "000000")).Select
End If
If Err.Number = 91 Then
Err.Clear
MsgBox "Item não encontrado na planilha do Comprador"
End If
End If
End If
If Err.Number > 0 Then MsgBox Err.Number & " - " & Err.Description
End Sub

E agora a macro da planilha de "Controle de processos GDS" planilha "Mãe" (não esta remetendo mais as duas planilhas

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If (Target.Column = 13 Or Target.Column = 14) And Target.Count = 1 Then
If Target.Value = "Clique aqui" Then
Dim Num As Long
Num = Cells(Target.Row, 10)
End If
If Target.Value = "Clique aqui" And Target.Column = 13 Then
On Error Resume Next
Workbooks("Diligenciamento GDS Nacional.xls").Activate
If Err.Number = 9 Then
Err.Clear
Workbooks.Open (ActiveWorkbook.Path & "Diligenciamento GDS Nacional.xls")
End If
Range("A:A").Find(Num).Select
If Err.Number = 91 Then
Err.Clear
MsgBox "Item não encontrado na planilha Nacional"
End If
ElseIf Target.Value = "Clique aqui" And Target.Column = 14 Then
On Error Resume Next
Workbooks("Diligenciamento GDS Internacional.xls").Activate
If Err.Number = 9 Then
Err.Clear
Workbooks.Open (ActiveWorkbook.Path & "Diligenciamento GDS Internacional.xls")
End If
Range("A:A").Find(Num).Select
If Err.Number = 91 Then
Err.Clear
MsgBox "Item não encontrado na planilha Internacional"
End If
End If
End If
If Err.Number > 0 Then MsgBox Err.Number & " - " & Err.Description
End Sub

Fico no aguardo e muito OBRIGADO por toda a ajuda e atenção nos auxilios solicitados

vlw

Algumas questões para ver se encontramos o erro, pois aparentemente está tudo correto.
As planilhas Nacional e Internacional estão sendo ao menos abertas pela planilha mãe?
Os arquivos estão todos na mesma pasta e com os mesmos nomes que constam no VBA (incluindo a extensão xls)?
O "Clique aqui" está escrito exatamente da mesma forma na planilha e no VBA?
O "Clique aqui" está nas colunas M (link para Nacional) e N (link para Internacional) da planilha mãe?

Bom dia , vamos la!

As planilhas Nacional e Internacional estão sendo ao menos abertas pela planilha mãe? Sim
Os arquivos estão todos na mesma pasta e com os mesmos nomes que constam no VBA (incluindo a extensão xls)? Sim
O "Clique aqui" está escrito exatamente da mesma forma na planilha e no VBA? Sim
O "Clique aqui" está nas colunas M (link para Nacional) e N (link para Internacional) da planilha mãe? Sim

o que eu pude perceber foi o seguinte , se eu clicar (planilha Mãe) nas colunas M ou N e o numero em questao constar nas planilhas ele abre normalmente ,

porém sempre que eu clico em alguma que não consta e aparece a msg de erro a partir dai ele nao encontra mais nenhum pedido das outras planilhas , abre as planilhas porém nao encontra nada...Poderia me ajudar por favor?

OBRIGADO!

Seguem as planilhas em anexo

Boa noite.

Fiz os testes com os seguintes pedidos 005023 (deu erro porque não está na planilha Nacional) e 246638 (foi encontrado na planilha Nacional). O teste inverso funcionou também: encontrei o 005023 na planilha Internacional e o 246638 não. E mesmo depois de um erro, o outro pedido continua sendo encontrado.

Ou seja, no meu computador funcionou corretamente. Quais pedidos que você não encontrou, mas estão na planilha Nacional? Ou na Internacional?

Pode ser também devido à versão do Excel. Eu estou usando o 2013 e você?

Bom Dia ,

eu uso o 2010 , teria alguma configuração que eu deva fazer ? Bom eu vou fechar tudo aqui de planilha aberta resetar o PC e testar novamente ,

vamos ver, de qualquer forma mais uma vez muito obrigado!

Então... da planilha mãe pra NACIONAL e INTERNACIONAL não ta indo , só o inverso ta funcionando direitinho , os pedidos com inicio 00 são os internacionais e os pedidos com inicio 2xxxxx nacionais...fechei tudo que tava aberto e abri elas umas 10 vezes... nao ta funcionando bem os links da planilha Mãe , nunca acha nada nas outras planilhas ( olhei pelo que estava mesmo nas outras planilhas,porem estavam la e nao achou) pode me ajudar?

Então você pode simplificar sua planilha usando apenas uma coluna com link em vez de duas. Para isso, exclua a coluna N e altere a fórmula da célula M10 para esta outra:
=SE(E(ÉNÚM(J10);OU(J10<100000;EXT.TEXTO(J10;1;1)="2"));"Clique aqui";"Não Consta")
Depois altere as demais fórmulas da coluna M, preenchendo para baixo. Com isso só haverá um link se houver um número na célula referente ao código e o número se iniciar com 2 ou for menor que 100000. Outra coisa: você fez os testes com os códigos que eu lhe indiquei na minha última mensagem?

No VBA da planilha mãe, use o seguinte código:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 13 And Target.Count = 1 Then
    If Target.Value = "Clique aqui" Then
    Dim Num As Long
    Num = Cells(Target.Row, 10)
    End If
    If Target.Value = "Clique aqui" And Num > 200000 Then
        On Error Resume Next
        Workbooks("Diligenciamento GDS Nacional.xls").Activate
        If Err.Number = 9 Then
            Err.Clear
            Workbooks.Open (ActiveWorkbook.Path & "Diligenciamento GDS Nacional.xls")
        End If
        Range("A:A").Find(Format(Num, "000000")).Select
        If Err.Number = 91 Then
            Err.Clear
            'Workbooks("Diligenciamento GDS Nacional.xls").Close SaveChanges:=False
            MsgBox "Item não encontrado na planilha Nacional"
        End If
    ElseIf Target.Value = "Clique aqui" And Num < 100000 Then
        On Error Resume Next
        Workbooks("Diligenciamento GDS Internacional.xls").Activate
        If Err.Number = 9 Then
            Err.Clear
            Workbooks.Open (ActiveWorkbook.Path & "Diligenciamento GDS Internacional.xls")
        End If
        Range("A:A").Find(Format(Num, "000000")).Select
        If Err.Number = 91 Then
            Err.Clear
            'Workbooks("Diligenciamento GDS Internacional.xls").Close SaveChanges:=False
            MsgBox "Item não encontrado na planilha Internacional"
        End If
    End If
End If
If Err.Number > 0 Then MsgBox Err.Number & " - " & Err.Description
End Sub

Bom Dia meu camarada!

então... referente a fórmula tem um porém , também tenho pedidos iniciados com 1 como poderia ficar a fórmula com mais esta vertente ?

Em relação a Macro ela roda normal porém aquele problema persiste (Quando clico em algum pedido na planilha mãe que nao esteja nas planilhas auxiliares "NACIONAL e "INTERNACIONAL") após isso não acha mais nada mesmo estando nelas , pode notar que se eu abrir o gerenciador de tarefas e fechar o excel após abrir a planilha mãe volta ao normal mas quando clico em algum pedido que não esteja nas planilhas auxiliares o erro retorna... (anexei as planilhas com as alterações que me pediu)

pode me ajudar pra finalizarmos isso ? obrigado por todos os "Bizus"

vlw

Bom dia. Eu só encontrei um código começado com 141 no arquivo nacional. No internacional, todos se iniciam com 0. Então no arquivo mãe só teria um código começado com 1 com necessidade de conter um link, no caso, para a nacional. Se quiser considerar também esse caso, a fórmula é a seguinte:
=SE(E(ÉNÚM(J10);J10<300000);"Clique aqui";"Não Consta")

Daí para o VBA funcionar corretamente com a alteração acima, altere a linha conforme abaixo. Daí os códigos a partir de 100000 serão buscados no arquivo nacional.

De
If Target.Value = "Clique aqui" And Num > 200000 Then

para
If Target.Value = "Clique aqui" And Num > 100000 Then

O erro que ocorre após não encontrar algum item pode ser devido à versão do Excel (o meu é 2013, o seu é 2010), pode ser alguma configuração do seu computador. Você testou em outros computadores? Se tiver uma máquina com Excel 2013 para realizar o teste, será bom.

Abraços.

Então... Eu abri em outra maquina que possui o excel 2013 , e aconteceu o mesmo sempre que clico em algum pedido que nao esta nas planilhas auxiliares nao acha mais nada tenho que abrir o gerenciador de tarefas e fechar o processo EXCEL em aberto para voltar a funcionar...

Seria possivel uma fórmula para encontrar os pedidos abaixo que estão em uma mesma célula ?

/ 198702 / 194846 / 215583 / 003582 / 003356 / 197215 / 003498 /003409 / 244250

a que voce me passou só encontra nas células com apenas um pedido seja 005448 ou 231123 ...

brigadão pelo suporte! abraço

Sobre o erro que você relatou, não sei como resolver, pois não vi o erro. No meu computador funciona corretamente.

Para encontrar códigos com células que tenham mais de um código, vou ver se faço algo daqui uns dias, mas não prometo.

Ta ok! Vou verificar em outraqs Máquinas aqui e te falo se ta funfando...Fico no aguardo se puder me ajudar....vlw